home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Mesa-2.2 / widgets-mesa / demos / ed.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-31  |  21.1 KB  |  789 lines
  1. /* ed.c -- Event Display (demo program for the MesaWS widget)
  2.    Copyright (C) 1995 Thorsten.Ohl @ Physik.TH-Darmstadt.de
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2 of the License, or
  7.    (at your option) any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; see the file COPYING.  If not, write to
  16.    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18.    $Id: ed.c,v 1.18 1996/09/27 10:21:53 ohl Exp $
  19.  */
  20.  
  21. /* This is a simple event display as a demonstration of the MesaWS widget.
  22.    It reads a stream of simple event records from standard input (see the
  23.    file `events' for a example).
  24.  
  25.    It is a slow and crude hack.  */
  26.   
  27. #include <stdio.h>
  28. #include <stdlib.h>
  29. #include <stdarg.h>
  30. #include <math.h>
  31. #ifndef M_PI
  32. #define M_PI 3.14159265358979323846
  33. #endif
  34. #include <X11/X.h>
  35. #include <X11/Intrinsic.h>
  36. #include <X11/StringDefs.h>
  37. #include <X11/Shell.h>
  38. #ifndef __GLX_MOTIF
  39. #include <X11/Xaw/Box.h>
  40. #include <X11/Xaw/Command.h>
  41. #include <X11/Xaw/Form.h>
  42. #include <GL/xmesa.h>
  43. #include <GL/gl.h>
  44. #include <GL/glu.h>
  45. #include <GL/glx.h>
  46. #include <GL/MesaDrawingArea.h>
  47. #include <GL/MesaWorkstation.h>
  48. #else /* __GLX_MOTIF */
  49. #include <Xm/RowColumn.h>
  50. #include <Xm/Label.h>
  51. #include <Xm/PushB.h>
  52. #include <Xm/Form.h>
  53. #include <GL/xmesa.h>
  54. #include <GL/gl.h>
  55. #include <GL/glu.h>
  56. #include <GL/glx.h>
  57. #include <GL/MesaMDrawingArea.h>
  58. #include <GL/MesaMWorkstation.h>
  59. #define GLwMakeCurrent GLwMMakeCurrent
  60. #define GLwPostObject           GLwMPostObject
  61. #define GLwBeginView           GLwMBeginView
  62. #define GLwEndView           GLwMEndView
  63. #define GLwSetPolarView           GLwMSetPolarView
  64. #define GLwBeginProjection       GLwMBeginProjection
  65. #define GLwEndProjection       GLwMEndProjection
  66. #define GLwSetFrustumProjection       GLwMSetFrustumProjection
  67. #define GLwGetProjectionList       GLwMGetProjectionList
  68. #define GLwRedrawObjects       GLwMRedrawObjects
  69. #define GLwPostProjection       GLwMPostProjection
  70. #endif /* __GLX_MOTIF */
  71.  
  72. static char *RCS_Id =
  73. "@(#) $Id: ed.c,v 1.18 1996/09/27 10:21:53 ohl Exp $";
  74.  
  75. static GLint Black, White, Red, Green, Blue, Yellow;
  76. Widget mesa, mesax, mesay, mesaz;
  77.  
  78. static void quit_function (Widget, XtPointer, XtPointer);
  79. static void next_function (Widget, XtPointer, XtPointer);
  80. static void next_event (void);
  81. static void update_angles (float, float);
  82. static void update_number (int);
  83.  
  84. static void
  85. Quit (Widget w, XEvent *event, String *argv, Cardinal *argc)
  86. {
  87.   quit_function (NULL, NULL, NULL);
  88. }
  89.  
  90. void
  91. Next (Widget w, XEvent *event, String *argv, Cardinal *argc)
  92. {
  93.   next_function (NULL, NULL, NULL);
  94. }
  95.  
  96. static XtActionsRec actions[] =
  97. {
  98.   {"Quit", Quit },
  99.   {"Next", Next },
  100. };
  101.  
  102. void
  103. quit_function (Widget w, XtPointer closure, XtPointer call_data)
  104. {
  105.   exit (0);
  106. }
  107.  
  108. void
  109. next_function (Widget w, XtPointer closure, XtPointer call_data)
  110. {
  111.   next_event ();
  112.   GLwRedrawObjects (mesa);
  113.   GLwRedrawObjects (mesax);
  114.   GLwRedrawObjects (mesay);
  115.   GLwRedrawObjects (mesaz);
  116. }
  117.  
  118. #define SET_POLAR(_p, _r, _theta, _phi) \
  119.     (_p)[0] = (_r) * sin (_theta) * cos (_phi), \
  120.     (_p)[1] = (_r) * sin (_theta) * sin (_phi), \
  121.     (_p)[2] = (_r) * cos (_theta)
  122. static void
  123. draw_barrel_segment (float bottom_radius, float top_radius,
  124.              float front_angle, float back_angle,
  125.              float half_angle)
  126. {
  127.   int i;
  128.   GLdouble top[4][3], bottom[4][3], *front[4], *back[4];
  129.  
  130.   SET_POLAR (top[0], top_radius, front_angle, half_angle);
  131.   SET_POLAR (top[1], top_radius, front_angle, -half_angle);
  132.   SET_POLAR (top[2], top_radius, back_angle, -half_angle);
  133.   SET_POLAR (top[3], top_radius, back_angle, half_angle);
  134.  
  135.   SET_POLAR (bottom[0], bottom_radius, front_angle, half_angle);
  136.   SET_POLAR (bottom[1], bottom_radius, front_angle, -half_angle);
  137.   SET_POLAR (bottom[2], bottom_radius, back_angle, -half_angle);
  138.   SET_POLAR (bottom[3], bottom_radius, back_angle, half_angle);
  139.  
  140.   front[0] = top[0];
  141.   front[1] = top[1];
  142.   front[2] = bottom[1];
  143.   front[3] = bottom[0];
  144.  
  145.   back[0] = top[3];
  146.   back[1] = top[2];
  147.   back[2] = bottom[2];
  148.   back[3] = bottom[3];
  149.  
  150.   glBegin (GL_LINE_LOOP);
  151.     for (i = 0; i <= 3; i++)
  152.       glVertex3dv (top[i]);
  153.   glEnd ();
  154.   
  155.   glBegin (GL_LINE_LOOP);
  156.     for (i = 0; i <= 3; i++)
  157.       glVertex3dv (bottom[i]);
  158.   glEnd ();
  159.   
  160.   glBegin (GL_LINE_LOOP);
  161.     for (i = 0; i <= 3; i++)
  162.       glVertex3dv (front[i]);
  163.   glEnd ();
  164.   
  165.   glBegin (GL_LINE_LOOP);
  166.     for (i = 0; i <= 3; i++)
  167.       glVertex3dv (back[i]);
  168.   glEnd ();
  169. }
  170.  
  171. static GLuint particles;
  172. static GLuint greek, latin, desc, desc_number, desc_angles;
  173.  
  174. static void
  175. next_event (void)
  176. {
  177.   char buffer[100];
  178.   enum
  179.     {
  180.       SKIP, READ, DONE
  181.     }
  182.   state;
  183.   int event = 0;
  184.   
  185.   glNewList (particles, GL_COMPILE);
  186.   glBegin (GL_LINES);
  187.   {
  188.     state = SKIP;
  189.     while (state != DONE)
  190.       {
  191.     int id;
  192.     float px, py, pz;
  193.     if (fgets (buffer, 100, stdin) == NULL)
  194.       state = DONE;
  195.     switch (state)
  196.       {
  197.       case SKIP:
  198.         if (sscanf (buffer, "BEGIN %d", &event) == 1)
  199.           state = READ;
  200.         break;
  201.       case READ:
  202.         if (sscanf (buffer, "%d %g %g %g",
  203.             &id, &px, &py, &pz) == 4)
  204.           {
  205.         if (id == 22)
  206.           {
  207.             /* Photons */
  208.             glIndexi (Red);
  209.             glColor3f (1.0, 0.0, 0.0);
  210.           }
  211.         else if ((11 == abs (id))
  212.              || (13 == abs (id))
  213.              || (15 == abs (id)))
  214.           {
  215.             /* Charged leptons */
  216.             glIndexi (Green);
  217.             glColor3f (0.0, 1.0, 0.0);
  218.           }
  219.         else if ((12 == abs (id))
  220.              || (14 == abs (id))
  221.              || (16 == abs (id)))
  222.           {
  223.             /* Neutral leptons */
  224.             glIndexi (Yellow);
  225.             glColor3f (1.0, 1.0, 0.0);
  226.           }
  227.         else if ((abs (id) <= 6) || (100 <= abs (id)))
  228.           {
  229.             /* Quarks/Hadrons */
  230.             glIndexi (Blue);
  231.             glColor3f (0.0, 0.0, 1.0);
  232.           }
  233.         else
  234.           {
  235.             /* ??? */
  236.             glIndexi (White);
  237.             glColor3f (1.0, 1.0, 1.0);
  238.           }
  239.         glVertex3f (0.0, 0.0, 0.0);
  240.         glVertex3f (px, py, pz);
  241.           }
  242.         else if (strncmp ("END", buffer, 3) == 0)
  243.           state = DONE;
  244.         break;
  245.       case DONE:
  246.         /* never happens */
  247.         break;
  248.       }
  249.       }
  250.   }
  251.   glEnd ();
  252.   glEndList ();
  253.  
  254.   update_number (event);
  255. }
  256.  
  257. static void
  258. update_angles (float theta, float phi)
  259. {
  260.   char msg[64];
  261.   sprintf (msg, "f=%5.2fp, q=%5.2fp", phi/M_PI, theta/M_PI);
  262.   glNewList (desc_angles, GL_COMPILE);
  263.     glCallLists (strlen (msg), GL_BYTE, msg);
  264.   glEndList ();
  265. }  
  266.  
  267. static void
  268. update_number (int event)
  269. {
  270.   char msg[32];
  271.   sprintf (msg, "ADLO/TH, #%d", event);
  272.   glNewList (desc_number, GL_COMPILE);
  273.     glCallLists (strlen (msg), GL_BYTE, msg);
  274.   glEndList ();
  275. }  
  276.  
  277. static void
  278. setup_context (Widget w)
  279. {
  280.   GLwMakeCurrent (w);
  281.   glClearColor (0.0, 0.0, 0.0, 0.0);
  282.   glClearIndex (Black);
  283.   glShadeModel (GL_FLAT);
  284. }
  285.  
  286. static GLint
  287. alloc_color (Widget w, Colormap cmap, int red, int green, int blue)
  288. { 
  289.   XColor xcolor;
  290.   xcolor.red = red;
  291.   xcolor.green = green;
  292.   xcolor.blue = blue;
  293.   xcolor.flags = DoRed | DoGreen | DoBlue;
  294.   if (!XAllocColor (XtDisplay (w), cmap, &xcolor))
  295.     {
  296.       printf ("Couldn't allocate color!\n");
  297.       exit (1);
  298.     }
  299.   return xcolor.pixel;
  300. }
  301.  
  302. /* This is rather inefficient, but we don't mind for the moment,
  303.    because it works.  */
  304.  
  305. static void
  306. translate_pixels (Widget to, Widget from, ...)
  307. {
  308.   va_list ap;
  309.   char *name;
  310.   Colormap from_cmap, to_cmap;
  311.   XColor xcolor;
  312.  
  313.   XtVaGetValues (from, XtNcolormap, &from_cmap, NULL);
  314.   XtVaGetValues (to, XtNcolormap, &to_cmap, NULL);
  315.  
  316.   va_start (ap, from);
  317.   for (name = va_arg (ap, char *); name != NULL; name = va_arg (ap, char *))
  318.     {
  319.       XtVaGetValues (from, name, &xcolor.pixel, NULL);
  320.       XQueryColor (XtDisplay (from), from_cmap, &xcolor);
  321.       if (!XAllocColor (XtDisplay (to), to_cmap, &xcolor))
  322.     XtAppWarning (XtWidgetToApplicationContext (to),
  323.               "Couldn't allocate color!\n");
  324.       else
  325.     XtVaSetValues (from, name, xcolor.pixel, NULL);
  326.     }
  327.   va_end (ap);
  328. }
  329.  
  330. static Widget
  331. create_label (Widget parent, char *name, char *text)
  332. {
  333. #ifndef __GLX_MOTIF
  334.   return XtVaCreateManagedWidget (name, labelWidgetClass, parent,
  335.                   XtNlabel, text, NULL);
  336. #else /* __GLX_MOTIF */
  337.   XmString label = XmStringCreateLtoR (text, XmFONTLIST_DEFAULT_TAG);
  338.   return XtVaCreateManagedWidget (name, xmLabelWidgetClass, parent,
  339.                   XmNlabelString, label, NULL);
  340.   XmStringFree (label);
  341. #endif /* __GLX_MOTIF */
  342. }
  343.  
  344. static Widget
  345. create_ok (Widget parent, char *name, XtCallbackProc cb)
  346. {
  347.   Widget ok;
  348. #ifndef __GLX_MOTIF
  349.   ok = XtVaCreateManagedWidget (name, commandWidgetClass, parent,
  350.                 XtNlabel, "OK", NULL);
  351.   XtAddCallback (ok, XtNcallback, cb, NULL);
  352. #else /* __GLX_MOTIF */
  353.   XmString label = XmStringCreate ("OK", XmFONTLIST_DEFAULT_TAG);
  354.   ok = XtVaCreateManagedWidget (name, xmPushButtonWidgetClass, parent,
  355.                 XmNlabelString, label, NULL);
  356.   XmStringFree (label);
  357.   XtAddCallback (ok, XmNarmCallback, cb, NULL);
  358. #endif /* __GLX_MOTIF */
  359.   return ok;
  360. }
  361.  
  362. static Widget
  363. create_command (Widget parent, char *name, XtCallbackProc cb)
  364. {
  365.   Widget ok;
  366. #ifndef __GLX_MOTIF
  367.   ok = XtVaCreateManagedWidget (name, commandWidgetClass, parent, NULL);
  368.   XtAddCallback (ok, XtNcallback, cb, NULL);
  369. #else /* __GLX_MOTIF */
  370.   ok = XtVaCreateManagedWidget (name, xmPushButtonWidgetClass, parent, NULL);
  371.   XtAddCallback (ok, XmNarmCallback, cb, NULL);
  372. #endif /* __GLX_MOTIF */
  373.   return ok;
  374. }
  375.  
  376. static Widget
  377. create_popup (Widget parent, char *name)
  378. {
  379. #ifndef __GLX_MOTIF
  380.   return XtVaCreatePopupShell (name, transientShellWidgetClass, parent, NULL);
  381. #else /* __GLX_MOTIF */
  382.   /* ??? */
  383.   return XtVaCreatePopupShell (name, transientShellWidgetClass, parent, NULL);
  384. #endif /* __GLX_MOTIF */
  385. }
  386.  
  387. static Widget
  388. create_box (Widget parent, char *name)
  389. {
  390. #ifndef __GLX_MOTIF
  391.   return XtVaCreateManagedWidget (name, boxWidgetClass, parent,
  392.                   XtNorientation, XtorientVertical, NULL);
  393. #else /* __GLX_MOTIF */
  394.   return XtVaCreateManagedWidget (name, xmRowColumnWidgetClass, parent,
  395.                   XmNorientation, XmVERTICAL, NULL);
  396. #endif /* __GLX_MOTIF */
  397. }
  398.  
  399.    
  400. Widget about_shell, help_shell;
  401.  
  402. char about_message[] = "\
  403. This is ed, a simple particle physics event display\n\
  404. application and demo for the MesaWorkstation widget.\n\
  405. \n\
  406. Copyright (C) 1995 Thorsten.Ohl @ Physik.TH-Darmstadt.de\n\
  407. \n\
  408. This is free software; see the source for copying conditions.\n\
  409. There is NO warranty; not even for MERCHANTABILITY\n\
  410. or FITNESS FOR A PARTICULAR PURPOSE.";
  411.  
  412. void
  413. popup_about (Widget w, XtPointer closure, XtPointer call_data)
  414. {
  415.   XtPopup (about_shell, XtGrabNonexclusive);
  416. }
  417.  
  418. void
  419. popdown_about (Widget w, XtPointer closure, XtPointer call_data)
  420. {
  421.   XtPopdown (about_shell);
  422. }
  423.  
  424.  
  425. char help_message[] = "\
  426. Sorry, no online help available yet.\n\
  427. \n\
  428. See the manpage or the source of the MesaWorkstation widget\n\
  429. for the available keystroke translations and their actions.\n\
  430. For a start, use the cursor keys to rotate the object.\n\
  431. \n\
  432. The color code of the particles is as follows:\n\
  433. \n\
  434.   red:    photons\n\
  435.   green:  charged leptons (electrons, muons, taus)\n\
  436.   yellow: neutrinos\n\
  437.   blue:   hadrons (incl. quarks)\n\
  438.   while:  unidentified\n";
  439.  
  440. void
  441. popup_help (Widget w, XtPointer closure, XtPointer call_data)
  442. {
  443.   XtPopup (help_shell, XtGrabNonexclusive);
  444. }
  445.  
  446. void
  447. popdown_help (Widget w, XtPointer closure, XtPointer call_data)
  448. {
  449.   XtPopdown (help_shell);
  450. }
  451.  
  452.  
  453. static XrmOptionDescRec options[] =
  454. {
  455.   { "-debug", "*debug", XrmoptionNoArg, "True" },
  456.   { "-rgba", "*rgba", XrmoptionNoArg, "True" },
  457.   { "-doublebuffer", "*doublebuffer", XrmoptionNoArg, "True" },
  458.   { "-ximage", "*ximage", XrmoptionNoArg, "True" },
  459. };
  460.  
  461. static String fallback_resources[] =
  462. {
  463. #ifndef __GLX_MOTIF
  464.   "*MesaWorkstation.debug: false",
  465.   "*MesaWorkstation.rgba: false",
  466.   "*MesaWorkstation.installColormap: true",
  467.   "*MesaWorkstation.doublebuffer: true",
  468.   "*MesaWorkstation.ximage: false",
  469.   "*MesaWorkstation.translations: #augment \
  470.    <Key>q: Quit()\n\
  471.    <Key>Return: Next()\n\
  472.    <Key>space: Next()",
  473. #else /* __GLX_MOTIF */
  474.   "*MesaMWorkstation.debug: false",
  475.   "*MesaMWorkstation.rgba: false",
  476.   "*MesaMWorkstation.installColormap: true",
  477.   "*MesaMWorkstation.doublebuffer: true",
  478.   "*MesaMWorkstation.ximage: false",
  479.   "*MesaMWorkstation.translations: #augment \
  480.    <Key>q: Quit()\n\
  481.    <Key>Return: Next()\n\
  482.    <Key>space: Next()",
  483. #endif /* __GLX_MOTIF */
  484.   "*help.label: Help",
  485.   "*about.label: About ed",
  486.   "*quit.label: Exit",
  487.   "*next.label: Next event",
  488.   "*mesa.width: 400",
  489.   "*mesa.height: 400",
  490.   "*mesax.width: 100",
  491.   "*mesax.height: 100",
  492.   "*mesay.width: 100",
  493.   "*mesay.height: 100",
  494.   "*mesaz.width: 100",
  495.   "*mesaz.height: 100",
  496.   NULL
  497. };
  498.  
  499. int
  500. main (int argc, char *argv[])
  501. {
  502.   Widget top, frame, commands, next, quit;
  503.   Widget about, about_box, about_text, about_id, about_ok;
  504.   Widget help, help_box, help_text, help_ok;
  505.   XtAppContext app_context;
  506.   Boolean rgba, cmap_installed;
  507.   
  508.   GLuint barrel, object;
  509.  
  510.   XtSetLanguageProc (NULL, NULL, NULL);
  511.   top = XtVaAppInitialize (&app_context, "Ed",
  512.                options, XtNumber (options),
  513.                &argc, argv, fallback_resources,
  514.                NULL);
  515.  
  516. #ifndef __GLX_MOTIF
  517.   frame = XtVaCreateManagedWidget ("frame", formWidgetClass,
  518.                    top,
  519.                    NULL);
  520.   commands = XtVaCreateManagedWidget ("commands", boxWidgetClass,
  521.                       frame,
  522.                       XtNhSpace, 10,
  523.                       XtNorientation, XtorientHorizontal,
  524.                       NULL);
  525. #else /* __GLX_MOTIF */
  526.   frame = XtVaCreateManagedWidget ("frame", xmFormWidgetClass,
  527.                    top,
  528.                    /* This should not be necessary.  Is it
  529.                       a bug in LessTif or in my understanding
  530.                       of Motif?  */
  531.                    XtNwidth, 420, XtNheight, 600,
  532.                     NULL);
  533.   commands = XtVaCreateManagedWidget ("commands", xmRowColumnWidgetClass,
  534.                       frame,
  535.                       XmNorientation, XmHORIZONTAL,
  536.                       XmNtopAttachment, XmATTACH_FORM,
  537.                       XmNtopOffset, 10,
  538.                       XmNrightAttachment, XmATTACH_FORM,
  539.                       XmNrightOffset, 10,
  540.                       NULL);
  541. #endif /* __GLX_MOTIF */
  542.  
  543.   help = create_command (commands, "help", popup_help);
  544.   help_shell = create_popup (top, "help_shell");
  545.   help_box = create_box (help_shell, "help_box");
  546.   help_text = create_label (help_box, "help_text", help_message);
  547.   help_ok = create_ok (help_box, "help_ok", popdown_help);
  548.  
  549.   about = create_command (commands, "about", popup_about);
  550.   about_shell = create_popup (top, "about_shell");
  551.   about_box = create_box (about_shell, "about_box");
  552.   about_text = create_label (about_box, "about_text", about_message);
  553.   about_id = create_label (about_box, "about_id", RCS_Id);
  554.   about_ok = create_ok (about_box, "about_ok", popdown_about);
  555.  
  556.   next = create_command (commands, "next", next_function);
  557.   quit = create_command (commands, "quit", quit_function);
  558.  
  559. #ifndef __GLX_MOTIF
  560.   mesa = XtVaCreateManagedWidget ("mesa", mesaWorkstationWidgetClass,
  561.                   frame,
  562.                   GLwNshareLists, True,
  563.                   XtNfromVert, commands, XtNvertDistance, 10,
  564.                   NULL);
  565.   mesax = XtVaCreateManagedWidget ("mesax", mesaWorkstationWidgetClass,
  566.                    frame,
  567.                    GLwNshareLists, True,
  568.                    XtNfromVert, mesa, XtNvertDistance, 10,
  569.                    NULL);
  570.   mesay = XtVaCreateManagedWidget ("mesay", mesaWorkstationWidgetClass,
  571.                    frame,
  572.                    GLwNshareLists, True,
  573.                    XtNfromVert, mesa, XtNvertDistance, 10,
  574.                    XtNfromHoriz, mesax, XtNhorizDistance, 50,
  575.                    NULL);
  576.   mesaz = XtVaCreateManagedWidget ("mesaz", mesaWorkstationWidgetClass,
  577.                    frame,
  578.                    GLwNshareLists, True,
  579.                    XtNfromVert, mesa, XtNvertDistance, 10,
  580.                    XtNfromHoriz, mesay, XtNhorizDistance, 50,
  581.                    NULL);
  582. #else /* __GLX_MOTIF */
  583.   mesa = XtVaCreateManagedWidget ("mesa", mesaMWorkstationWidgetClass,
  584.                   frame,
  585.                   GLwNshareLists, True,
  586.                   XmNtopAttachment, XmATTACH_WIDGET,
  587.                   XmNtopOffset, 10,
  588.                   XmNtopWidget, commands,
  589.                   XmNleftAttachment, XmATTACH_FORM,
  590.                   XmNleftOffset, 10,
  591.                   XmNrightAttachment, XmATTACH_FORM,
  592.                   XmNrightOffset, 10,
  593.                   NULL);
  594.   mesax = XtVaCreateManagedWidget ("mesax", mesaMWorkstationWidgetClass,
  595.                    frame,
  596.                    GLwNshareLists, True,
  597.                    XmNtopAttachment, XmATTACH_WIDGET,
  598.                    XmNtopOffset, 10,
  599.                    XmNtopWidget, mesa,
  600.                    XmNleftAttachment, XmATTACH_FORM,
  601.                    XmNleftOffset, 10,
  602.                    XmNbottomAttachment, XmATTACH_FORM,
  603.                    XmNbottomOffset, 10,
  604.                    NULL);
  605.   mesay = XtVaCreateManagedWidget ("mesay", mesaMWorkstationWidgetClass,
  606.                    frame,
  607.                    GLwNshareLists, True,
  608.                    XmNtopAttachment, XmATTACH_WIDGET,
  609.                    XmNtopOffset, 10,
  610.                    XmNtopWidget, mesa,
  611.                    XmNleftAttachment, XmATTACH_WIDGET,
  612.                    XmNleftOffset, 50,
  613.                    XmNleftWidget, mesax,
  614.                    XmNbottomAttachment, XmATTACH_FORM,
  615.                    XmNbottomOffset, 10,
  616.                    NULL);
  617.   mesaz = XtVaCreateManagedWidget ("mesaz", mesaMWorkstationWidgetClass,
  618.                    frame,
  619.                    GLwNshareLists, True,
  620.                    XmNtopAttachment, XmATTACH_WIDGET,
  621.                    XmNtopOffset, 10,
  622.                    XmNtopWidget, mesa,
  623.                    XmNleftAttachment, XmATTACH_WIDGET,
  624.                    XmNleftOffset, 50,
  625.                    XmNleftWidget, mesay,
  626.                    XmNbottomAttachment, XmATTACH_FORM,
  627.                    XmNbottomOffset, 10,
  628.                    XmNrightAttachment, XmATTACH_FORM,
  629.                    XmNrightOffset, 10,
  630.                    NULL);
  631. #endif /* __GLX_MOTIF */
  632.  
  633.   XtAppAddActions (app_context, actions, XtNumber (actions));
  634.   
  635.   XtRealizeWidget (top);
  636.  
  637.   XtVaGetValues (mesa,
  638.          GLwNrgba, &rgba,
  639.          GLwNinstallColormap, &cmap_installed,
  640.          NULL);
  641.   if (rgba)
  642.     {
  643.       Black = White = Red = Green = Blue = Yellow = 0;
  644.  
  645.       if (cmap_installed)
  646.     {
  647.       /* In RGBA mode, the Mesa widgets will have their own color map.
  648.          Adjust the colors of the other widgets so that--even if the rest
  649.          of the screen has wrong colors--all application widgets have the
  650.          right colors.  */
  651.              
  652.       translate_pixels (mesa, quit,
  653.                 XtNbackground, XtNforeground, XtNborder, NULL);
  654.       translate_pixels (mesa, next,
  655.                 XtNbackground, XtNforeground, XtNborder, NULL);
  656.       translate_pixels (mesa, help,
  657.                 XtNbackground, XtNforeground, XtNborder, NULL);
  658.       translate_pixels (mesa, about,
  659.                 XtNbackground, XtNforeground, XtNborder, NULL);
  660.       translate_pixels (mesa, commands, XtNbackground, XtNborder, NULL);
  661.       translate_pixels (mesa, frame, XtNbackground, XtNborder, NULL);
  662.       
  663.       /* Finally warp the pointer into the mesa widget, to make sure that
  664.          the user sees the right colors at the beginning.  */
  665.  
  666.       XWarpPointer (XtDisplay (mesa), None, XtWindow (mesa), 0, 0, 0, 0, 0, 0);
  667.     }
  668.     }
  669.   else
  670.     {
  671.       /* Allocate a few colors for use in color index mode.  */
  672.  
  673.       Colormap cmap;
  674.       cmap = DefaultColormap (XtDisplay (top), DefaultScreen (XtDisplay (top)));
  675.       Black  = alloc_color (top, cmap, 0x0000, 0x0000, 0x0000);
  676.       White  = alloc_color (top, cmap, 0xffff, 0xffff, 0xffff);
  677.       Red    = alloc_color (top, cmap, 0xffff, 0x0000, 0x0000);
  678.       Green  = alloc_color (top, cmap, 0x0000, 0xffff, 0x0000);
  679.       Blue   = alloc_color (top, cmap, 0x0000, 0x0000, 0xffff);
  680.       Yellow = alloc_color (top, cmap, 0xffff, 0xffff, 0x0000);
  681.     }
  682.  
  683.   setup_context (mesa);
  684.   setup_context (mesax);
  685.   setup_context (mesay);
  686.   setup_context (mesaz);
  687.  
  688.   GLwSetFrustumProjection (mesa, -1.0, 1.0, -1.0, 1.0, 1.0, 10.0);
  689.   GLwSetPolarView (mesa, 3, M_PI/2, 0.0);
  690.  
  691.   GLwBeginProjection (mesax);
  692.   glOrtho (-1.5, 1.5, -1.5, 1.5, 1.0, 10.0);
  693.   GLwEndProjection ();
  694.   GLwPostProjection (mesay, GLwGetProjectionList (mesax));
  695.   GLwPostProjection (mesaz, GLwGetProjectionList (mesax));
  696.  
  697.   GLwBeginView (mesax);
  698.   gluLookAt (3.0, 0.0, 0.0,  0.0, 0.0, 0.0,  0.0, 1.0, 0.0);
  699.   GLwEndView ();
  700.  
  701.   GLwBeginView (mesay);
  702.   gluLookAt (0.0, 3.0, 0.0,  0.0, 0.0, 0.0,  0.0, 0.0,-1.0);
  703.   GLwEndView ();
  704.  
  705.   GLwBeginView (mesaz);
  706.   gluLookAt (0.0, 0.0, 3.0,  0.0, 0.0, 0.0,  0.0, 1.0, 0.0);
  707.   GLwEndView ();
  708.  
  709.   barrel = glGenLists (1);
  710.   glNewList (barrel, GL_COMPILE);
  711.   {
  712.     draw_barrel_segment (0.9, 1.0,
  713.              0.3 * M_PI, 0.7 * M_PI,
  714.              0.1 * M_PI);
  715.   }
  716.   glEndList ();
  717.  
  718.   particles = glGenLists (1);
  719.   glNewList (particles, GL_COMPILE);
  720.   glEndList ();
  721.  
  722.   object = glGenLists (1);
  723.   glNewList (object, GL_COMPILE);
  724.   {
  725.     float frac;
  726.     glClear (GL_COLOR_BUFFER_BIT);
  727.     glIndexi (White);
  728.     glColor3f (1.0, 1.0, 1.0);
  729.     for (frac = 0; frac < 1.0; frac += 0.125)
  730.       {
  731.     glPushMatrix ();
  732.       glRotatef (frac * 360, 0.0, 0.0, 1.0);
  733.       glCallList (barrel);
  734.     glPopMatrix ();
  735.       }
  736.     glPushMatrix ();
  737.       glCallList (particles);
  738.     glPopMatrix ();
  739.   }
  740.   glEndList ();
  741.  
  742. #if 0
  743.   greek = glGenLists (128);
  744.   glXUseXFont (XLoadFont (XtDisplay (top), "*-symbol-*-240-*"),
  745.            0, 128, greek);
  746. #endif
  747.   latin = glGenLists (128);
  748.   glXUseXFont (XLoadFont (XtDisplay (top), "*-times-*-240-*"),
  749.            0, 128, latin);
  750.  
  751.   desc_number = glGenLists (1);
  752.   update_number (0);
  753.   desc_angles = glGenLists (1);
  754.   update_angles (0.0, 0.0);
  755.  
  756.   desc = glGenLists (1);
  757.   glNewList (desc, GL_COMPILE);
  758.   {
  759.     glMatrixMode (GL_PROJECTION);
  760.     glLoadIdentity ();
  761.     glOrtho (0, 400, 0, 400, -1.0, 1.0);
  762.     glMatrixMode (GL_MODELVIEW);
  763.     glLoadIdentity ();
  764.     glIndexi (White);
  765.     glColor3f (1.0, 1.0, 1.0);
  766.     glPushAttrib (GL_LIST_BIT);
  767.       glRasterPos2i (10.0, 10.0);
  768.       glListBase (latin);
  769.       glCallList (desc_number);
  770. #if 0
  771.       glRasterPos2i (10.0, 380.0);
  772.       glListBase (greek);
  773.       glCallList (desc_angles);
  774. #endif
  775.     glPopAttrib ();
  776.   }
  777.   glEndList ();
  778.   
  779.   GLwPostObject (mesa, object);
  780.   GLwPostObject (mesax, object);
  781.   GLwPostObject (mesay, object);
  782.   GLwPostObject (mesaz, object);
  783.   GLwPostObject (mesa, desc);
  784.  
  785.   XtAppMainLoop (app_context);
  786.   return (0);
  787. }
  788.  
  789.